#'###########################################
#'                                          #
#'  ------------------------------------    #
#'  |     COIN     __                  |    #
#'  |            >(' )                 |    #
#'  |              )/                  |    #
#'  |             /  `----/            |    #
#'  |             \  ~=- /             |    #
#'  |   ~^~^~^~^~^~^~^~^~^~^~^~^~^~^   |    #
#'  ------------------------------------    #
#'                                          #
#'###########################################


#'#################################################################################################
#'#                                                                                              ##
#'#                                 Fichier contenant les constantes                             ##
#'#                                                                                              ##
#'#################################################################################################


ARGOS_COLUMN_NAMES <- c(Platform.ID.="id", 
		Latitude="latitude",
		Longitude="longitude",
		Loc..quality="LC",
		Loc..date="date",
    Time="time",
		Sat.="satellite",
		ID="locId",
		Error.radius="radius",
		Semi.major.axis="semiMajor",
		Semi.minor.axis="semiMinor",
		Ellipse.orientation="angle",
		argLong="argLong",
		argLat="argLat",
		session="session",
		visibility="visibility",
		diffLong="diffLong",
		diffLat="diffLat",
		distance="distance",
		gpsLong="gpsLong",
		gpsLat="gpsLat",
		gpsInterval="gpsInterval",
		Prg.No.="programNumber",
		Pass="pass",
		Altitude="altitude",
		Frequency="frequency",
		Msg.Date="messageDate",
		Comp.="compression",
		Long..1="longitude1",
		Lat..sol..1="latitude1",
		Long..2="longitude2",
		Lat..sol..2="latitude2",
		Loc..idx="locationIndex", 
		Nopc="numberValidityControl",
		Msg="numberMessages",
		X.gt....120.DB="gt-120DB",
		Best.level="bestLevel",
		Delta.freq.="deltaFreq",
		GDOP="GDOP",
		gpsId="gpsId",
		deployment="deployment",
		Time="time",
		Position="position",
    Leg.Length="legLength",
    Leg.Speed="legSpeed",
    Leg.Course="legCourse",
    Leg.Time="legTime"
)


MOVEBANK_COLUMN_NAMES <- c(event.id = "event.id",
		timestamp ="time",
		location.long ="longitude",
		location.lat = "latitude",
		algorithm.marked.outlier = "algorithm.marked.outlier",
		argos.altitude = "argos.altitude",
		argos.error.radius = "argos.error.radius",
		argos.iq = "argos.iq",
		argos.lat1 = "argos.lat1",
		argos.lat2 = "argos.lat2",
		argos.lc = "LC",
		argos.lon1 = "argos.lon1",
		argos.lon2 = "argos.lon2",
		argos.nb.mes = "argos.nb.mes",
		argos.nb.mes.120 = "argos.nb.mes.120",
		argos.nopc = "argos.nopc",
		argos.orientation = "argos.orientation",
		argos.pass.duration = "argos.pass.duration",
		argos.sat.id = "argos.sat.id",
		argos.semi.major = "argos.semi.major",
		argos.semi.minor = "argos.semi.minor",
		sensor.type = "sensor.type",
		individual.taxon.canonical.name = "individual.taxon.canonical.name",
		tag.local.identifier = "id",
		individual.local.identifier = "deployment",
		study.name = "study.name",
		utm.easting = "utm.easting",
		utm.northing = "utm.northing",
		utm.zone = "utm.zone",
		study.timezone = "study.timezone",
		study.local.timestamp = "study.local.timestamp",
		location.error.text = "location.error.text",
		diffLong="diffLong",
		diffLat="diffLat",
		distance="distance",
		visibility="visibility",
		session="session",
		deployment="deployment"
)


HRCOMPARE_COLNAME_FIXED <- c(
	"n"
)

HRCOMPARE_COLNAME <- c(
		"method",
		"percent",
		"n",
		"sizeRatio", 
		"overlapIndex", 
		"argosArea",
		"gpsArea",
		"overlapArea",
		"prop.in.gps"
)
